Row

Total Monthly Paramdeic Dispatch Frequency

Total Monthly Number of Paramedic Units that Arrive After a Dispatch is Made

Row

Total Paramedic Dispatches from 2012 through 2016

---
title: "Toronto Paramedic Dispatch Dashboard"
author: "Anthony Ionno"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(tidyverse)
library(magrittr)
library(htmlwidgets)
library(dygraphs)
library(xts)
library(knitr)
library(flexdashboard)
library(tmap)
library(rgdal)
library(raster)
# Read in Toronto Paramedic Data
Para_df<-read.csv("2018-01-28 _Combined-TO-para-data.csv")
plot1Data<-Para_df %>%
  mutate(.,Dispatch_Time=as.Date(Dispatch_Time)) %>%
group_by(.,format(Dispatch_Time,"%Y-%m")) %>% 
  summarise(.,Count=n())
plot1_ts<-ts(data = plot1Data$Count, start = 2012,end = 2016,frequency = 12)
plot2Data<-Para_df %>%
    mutate(.,Dispatch_Time=as.Date(Dispatch_Time)) %>%
group_by(.,format(Dispatch_Time,"%Y-%m")) %>% 
  summarise(.,TotalUnitsonScene=sum(Units_Arrived_At_Scene))
plot2_ts<-ts(data = plot2Data$TotalUnitsonScene, start = 2012,end = 2016,frequency = 12)
Ontario_shp<-shapefile("Ontario.shp.shp") 
names(Ontario_shp@data)<-c("Forward_Sortation_Area","ID","PRNAME","Total Dispatches")
Ontario_shp<-subset(Ontario_shp,`Total Dispatches`>0)
```

Row
-----------------------------------------------------------------------

### Total Monthly Paramdeic Dispatch Frequency

```{r}
dygraph(data =plot1_ts) %>%
  dySeries("V1", label = "Number of Dispatches", color = "black") %>%
  dyOptions(axisLineWidth = 1.5, fillGraph = TRUE )%>%
  dyRangeSelector(height = 60) 
```


### Total Monthly Number of Paramedic Units that Arrive After a Dispatch is Made

```{r}
dygraph(data =plot2_ts) %>%
  dySeries("V1", label = "Number of Paramedic Units", color = "black") %>%
  dyOptions(axisLineWidth = 1.5, fillGraph = TRUE )%>%
  dyRangeSelector(height = 60) 
```

Row
-----------------------------------------------------------------------

### Total Paramedic Dispatches from 2012 through 2016

```{r}
Ontario_FSA_Map<-tm_shape(Ontario_shp) +
 tm_polygons("Total Dispatches",
             palette="PuBu")
Ontario_leaflet<-tmap_leaflet(Ontario_FSA_Map)
Ontario_leaflet %>%
  leaflet::setView(lat = 43.7532,lng = -79.3832,zoom = 10)

```